***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
*** This Program already converted to Y2K                                                                                                                                                                                                                 
*** S&T Departement     on 29 April 1999 by Ben.Rahman                                                                                                                                                                                                    
***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
set cent on                                                                                                                                                                                                                                               
SET PROC TO SOSPRO                                                                                                                                                                                                                                        
SET PROC TO BOXPROC                                                                                                                                                                                                                                       
DO START                                                                                                                                                                                                                                                  
DR1='N:'                                                                                                                                                                                                                                                  
F1='DRUGS'                                                                                                                                                                                                                                                
F11='DRUPRIN'                                                                                                                                                                                                                                             
F2='DISPOS'                                                                                                                                                                                                                                               
F21='DISPRIN'                                                                                                                                                                                                                                             
SELE 1                                                                                                                                                                                                                                                    
SET EXCLU OFF                                                                                                                                                                                                                                             
USE &DR1&F1 INDEX &DR1&F1,&DR1&F11                                                                                                                                                                                                                        
SELE 2                                                                                                                                                                                                                                                    
SET EXCLU OFF                                                                                                                                                                                                                                             
USE &DR1&F2 INDEX &DR1&F2,&DR1&F21                                                                                                                                                                                                                        
SELE 1                                                                                                                                                                                                                                                    
GO TOP                                                                                                                                                                                                                                                    
DO WHILE .NOT. EOF()                                                                                                                                                                                                                                      
   NSLPRIC=NEW_PRICE                                                                                                                                                                                                                                      
   EFETANG=DATE_ACTI                                                                                                                                                                                                                                      
   IF EFETANG<=DATE() .AND. EFETANG<>CTOD('  /  /    ')                                                                                                                                                                                                   
      IF REC_LOCK()                                                                                                                                                                                                                                       
            REPL SALE_PRICE WITH NSLPRIC                                                                                                                                                                                                                  
            REPL DATE_ACTI WITH CTOD('  /  /    ')                                                                                                                                                                                                        
            REPL NEW_PRICE WITH 0                                                                                                                                                                                                                         
      ENDIF                                                                                                                                                                                                                                               
      UNLOCK                                                                                                                                                                                                                                              
   ENDIF                                                                                                                                                                                                                                                  
   SKIP                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
                                                                                                                                                                                                                                                          
SELE 2                                                                                                                                                                                                                                                    
GO TOP                                                                                                                                                                                                                                                    
DO WHILE .NOT. EOF()                                                                                                                                                                                                                                      
   NSLPRIC=NEW_PRICE                                                                                                                                                                                                                                      
   EFETANG=DATE_ACTI                                                                                                                                                                                                                                      
   IF EFETANG<=DATE() .AND. EFETANG<>CTOD('  /  /    ')                                                                                                                                                                                                   
      IF REC_LOCK()                                                                                                                                                                                                                                       
            REPL SALE_PRICE WITH NSLPRIC                                                                                                                                                                                                                  
            REPL DATE_ACTI WITH CTOD('  /  /    ')                                                                                                                                                                                                        
            REPL NEW_PRICE WITH 0                                                                                                                                                                                                                         
      ENDIF                                                                                                                                                                                                                                               
      UNLOCK                                                                                                                                                                                                                                              
   ENDIF                                                                                                                                                                                                                                                  
   SKIP                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
